home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 1 of 3).adf / ARCHIVES / Mikes_Music_Source.lha / stereo / AZ7-Demo2.AMOS / AZ7-Demo2.amosSourceCode next >
AMOS Source Code  |  1995-04-11  |  810b  |  61 lines
  1. ' Stereo Demo #2 
  2.  
  3. ' By Mike Richmond 
  4.  
  5. ' Compicated Stereo Panning demonstartion
  6.  
  7. Curs Off : Flash Off 
  8.  
  9. V=63 : Rem Left Channel at maximum volume 
  10. W=0 : Rem Right Channel at minimum volume
  11.  
  12. Volume %10,V
  13. Volume %1,W : Rem Set initial volumes
  14. Sam Loop On 
  15. Sam Play %11,1 : Rem Start sample playing 
  16.  
  17. Do 
  18.  
  19.    Volume %10,V
  20.    Volume %1,W : Rem update volumes 
  21.  
  22.    If Jleft(1)
  23.       Dec V
  24.       Inc W
  25.    End If 
  26.  
  27.    If Jright(1)
  28.       Inc V
  29.       Dec W
  30.    End If 
  31.  
  32.    If Jup(1)
  33.       Dec V
  34.       Dec W
  35.    End If 
  36.  
  37.    If Jdown(1)
  38.       Inc V
  39.       Inc W
  40.    End If 
  41.  
  42.    If Fire(1)
  43.       Goto ND
  44.    End If 
  45.  
  46.    If V>63 Then V=63
  47.    If V<0 Then V=0
  48.    If W>63 Then W=63
  49.    If W<0 Then W=0
  50.  
  51.    W$=Str$(W) : V$=Str$(V)
  52.  
  53.    Home : Print "LEFT:",W$,"RIGHT",V$
  54.  
  55.    Wait Vbl 
  56.  
  57. Loop 
  58.  
  59. ND:
  60.  
  61. Sam Stop : Rem And stop the sample